unit UfrmClientSeacher;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ExtCtrls, RzPanel, DBGridEhGrouping, GridsEh,
  DBGridEh, DB, ADODB, ActnList;

type
  TfrmClientSearch = class(TForm)
    RzToolbar1: TRzToolbar;
    RzToolButton1: TRzToolButton;
    qryclient: TADOQuery;
    dsClient: TDataSource;
    DBGridEh1: TDBGridEh;
    actlst1: TActionList;
    actSelect: TAction;
    procedure actSelectExecute(Sender: TObject);
  private
    FClientid:Integer;
    Fclientname:string;
  public
    property Clientid:Integer  read FClientid write FClientid;
    property ClientName:string  read FclientName write Fclientname;
  end;

var
  frmClientSearch: TfrmClientSearch;

implementation

uses UdataModel;

{$R *.dfm}

procedure TfrmClientSearch.actSelectExecute(Sender: TObject);
begin
    FClientid:=qryclient.fieldbyname('id').AsInteger;
  Fclientname:= qryclient.fieldbyname('clientname').AsString;
  Close;
end;

end.
